home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / p2c4os2.zip / DISTRIB / HP / IMPORT / RND.IMP < prev    next >
Text File  |  1992-08-03  |  228b  |  23 lines
  1.  
  2.  
  3. {IncludeFrom=misc <rnd.h>}
  4.  
  5.  
  6. {*ExportSymbol=P_%s}
  7.  
  8.  
  9. module rnd;
  10.  
  11. import sysglobals; 
  12.  
  13. export
  14.  
  15.  
  16. procedure random(var seed : integer);
  17. function rand(var seed : integer; max : integer) : integer;
  18.  
  19.  
  20. end.
  21.  
  22.   
  23.